ویژوال بیسیک - آموزش وسرگرمی

آن که از دنیا اندوهناک است ، از قضاى خدا خشمناک است . و آن که از مصیبتى که بدو رسیده گله آرد ، از پروردگار خود شکوه دارد و آن که نزد توانگر رفت و به خاطر مالدارى وى از خود خوارى نشان داد دو ثلث دینش را به باد داد ، و آن که قرآن خواند و مرد و راه به دوزخ برد از کسانى بود که آیات خدا را به فسوس گرفت و افسانه شمرد ، و آن که دلش به دوستى دنیا شیفته است دل وى به سه چیز آن چسبیده است : اندوهى که از او دست بر ندارد ، و حرصى که او را وانگذارد ، و آرزویى که آن را به چنگ نیارد . [نهج البلاغه]

آموزش وسرگرمی

ویژوال بیسیک

بستن و باز کردن سی دی رم

بازکردن...

Private Sub Command1_Click()
retvalue = mciSendString("set CDAudio door open", returnstring, 127, 0

End Sub

بستن...

()Private Sub Command2_Click
retvalue = mciSendString("set CDAudio door Closed", returnstring, 127, 0)

End Sub

ابتدا این کد در قسمت جنرال نوشته شود

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

یاسر ::: یکشنبه 87/11/13::: ساعت 11:30 عصر

نظرات دیگران: نظر

لیست کل یادداشت های این وبلاگ

ویژوال بیسیک

>> بازدیدهای وبلاگ <<

بازدید امروز: 2

بازدید دیروز: 1

کل بازدید :2645

>>اوقات شرعی <<

اوقات شرعی

>> درباره خودم<<

یاسر

>>فهرست موضوعی یادداشت ها<<<

ویژوال بیسیک آموزش برنامه نویسی کد .

>>اشتراک در خبرنامه<<

>>طراح قالب<<